﻿Imports System.Windows.Forms

Public Class Metodos

    Public Function SeleccionarArchivo() As String
        Dim ofd As New OpenFileDialog
        Dim ruta As String
        ofd.RestoreDirectory = True
        ruta = ofd.FileName()
        ofd.ShowDialog()
        Return ruta
    End Function


    Public Function BuscarCadena(ByVal palabraEntrada As String)

        Dim resultado As String = Form1.displayTexto.Text
        Dim contador As Integer = 0
        Dim lugar As Integer
        Dim iniciarBusqueda As Integer = 1
        Dim longitud As Integer = palabraEntrada.Length

        While resultado.Length > iniciarBusqueda
            lugar = InStr(iniciarBusqueda, resultado, palabraEntrada, CompareMethod.Text)
            If lugar <> 0 Then
                contador = contador + 1
                iniciarBusqueda = lugar + longitud
            Else
                iniciarBusqueda = resultado.Length + longitud
            End If
        End While

        If contador <> 0 Then
            resultado = "La cadena ''" & palabraEntrada & "'' aparece " & contador & " veces."
        Else
            resultado = "La cadena no fue encontrada en el texto."
        End If

        Return resultado

    End Function



End Class
